home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1995 October / Amiga-CD 1995 #10.iso / weitere_demos / amiwin / update_211d_to_214d / install_amiwinupd < prev    next >
Text File  |  1995-08-26  |  9KB  |  508 lines
  1. (procedure check-amiwin-version
  2.  (set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
  3.  (if (not(= amiwin-version 131083))
  4.   (abort "You do not have AmiWin 2.11d installed.\n");
  5.  )
  6.  (set amiwin-version (getversion (tackon @default-dest "xsd/aga-1.xsd")))
  7.  (if (not(= amiwin-version 131072))
  8.   (abort "Your aga-1.xsd driver does not have the correct version\n");
  9.  )
  10.  (set amiwin-version (getversion (tackon @default-dest "xsd/aga-8.xsd")))
  11.  (if (not(= amiwin-version 131083))
  12.   (abort "Your aga-8.xsd driver does not have the correct version\n");
  13.  )
  14. )
  15.  
  16. (procedure select-destination-directory
  17.  (set @default-dest
  18.   (askdir
  19.    (prompt "Select the directory where you have "
  20.     "installed AmiWin 2.11demo. The default is "
  21.     "probably correct.")
  22.    (help "Please specify the directory where you have "
  23.     "installed AmiWin 2.11demo. The default is "
  24.     "the X11: directory, i.e. the likely place of "
  25.     "your AmiWin installation.")
  26.    (default "X11:")
  27.   )
  28.  )
  29. )  
  30.  
  31. ;;;; Start
  32.  
  33. (set app-name "AmiWin 2.14demo")
  34.  
  35. (complete 0)
  36.  
  37. (set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  38.  (expandpath @icon))
  39. )
  40.  
  41. (select-destination-directory)
  42.  
  43. (check-amiwin-version)
  44.  
  45.  
  46.  
  47. (complete 5)
  48.  
  49. (copyfiles
  50.  (source (tackon source-dir "x11/xsd/aga-1.pch"))
  51.  (dest "T:")
  52. )
  53.  
  54. (copyfiles
  55.  (source (tackon @default-dest "xsd/aga-1.xsd"))
  56.  (dest "T:")
  57.  (newname "aga-1.old")
  58. )
  59.  
  60. (working)
  61. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:aga-1.xsd -pT:aga-1.pch T:aga-1.old"))
  62.  
  63. (copyfiles
  64.  (source "T:aga-1.xsd")
  65.  (dest (tackon @default-dest "xsd"))
  66. )
  67.  
  68. (delete "T:aga-1.xsd")
  69. (delete "T:aga-1.old")
  70. (delete "T:aga-1.pch")
  71.  
  72.  
  73.  
  74. (complete 11)
  75.  
  76. (copyfiles
  77.  (source (tackon source-dir "x11/xsd/aga-8.pch"))
  78.  (dest "T:")
  79. )
  80.  
  81. (copyfiles
  82.  (source (tackon @default-dest "xsd/aga-8.xsd"))
  83.  (dest "T:")
  84.  (newname "aga-8.old")
  85. )
  86.  
  87. (working)
  88. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:aga-8.xsd -pT:aga-8.pch T:aga-8.old"))
  89.  
  90. (copyfiles
  91.  (source "T:aga-8.xsd")
  92.  (dest (tackon @default-dest "xsd"))
  93. )
  94.  
  95. (delete "T:aga-8.xsd")
  96. (delete "T:aga-8.old")
  97. (delete "T:aga-8.pch")
  98.  
  99.  
  100.  
  101. (complete 16)
  102.  
  103. (copyfiles
  104.  (source (tackon source-dir "x11/xsd/rtg-1.pch"))
  105.  (dest "T:")
  106. )
  107.  
  108. (copyfiles
  109.  (source (tackon @default-dest "xsd/rtg-1.xsd"))
  110.  (dest "T:")
  111.  (newname "rtg-1.old")
  112. )
  113.  
  114. (working)
  115. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:rtg-1.xsd -pT:rtg-1.pch T:rtg-1.old"))
  116.  
  117. (copyfiles
  118.  (source "T:rtg-1.xsd")
  119.  (dest (tackon @default-dest "xsd"))
  120. )
  121.  
  122. (delete "T:rtg-1.xsd")
  123. (delete "T:rtg-1.old")
  124. (delete "T:rtg-1.pch")
  125.  
  126.  
  127.  
  128. (complete 22)
  129.  
  130. (copyfiles
  131.  (source (tackon source-dir "x11/libs/xlib.pch"))
  132.  (dest "T:")
  133. )
  134.  
  135. (copyfiles
  136.  (source (tackon @default-dest "libs/xlib.library"))
  137.  (dest "T:")
  138.  (newname "xlib.old")
  139. )
  140.  
  141. (working)
  142. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xlib.library -pT:xlib.pch T:xlib.old"))
  143.  
  144. (copyfiles
  145.  (source "T:xlib.library")
  146.  (dest (tackon @default-dest "libs"))
  147. )
  148.  
  149. (delete "T:xlib.library")
  150. (delete "T:xlib.old")
  151. (delete "T:xlib.pch")
  152.  
  153.  
  154.  
  155. (complete 27)
  156.  
  157. (copyfiles
  158.  (source (tackon source-dir "x11/libs/xt.pch"))
  159.  (dest "T:")
  160. )
  161.  
  162. (copyfiles
  163.  (source (tackon @default-dest "libs/xt.library"))
  164.  (dest "T:")
  165.  (newname "xt.old")
  166. )
  167.  
  168. (working)
  169. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xt.library -pT:xt.pch T:xt.old"))
  170.  
  171. (copyfiles
  172.  (source "T:xt.library")
  173.  (dest (tackon @default-dest "libs"))
  174. )
  175.  
  176. (delete "T:xt.library")
  177. (delete "T:xt.old")
  178. (delete "T:xt.pch")
  179.  
  180.  
  181.  
  182. (complete 33)
  183.  
  184. (copyfiles
  185.  (source (tackon source-dir "x11/libs/xmu2.pch"))
  186.  (dest "T:")
  187. )
  188.  
  189. (copyfiles
  190.  (source (tackon @default-dest "libs/xmu2.library"))
  191.  (dest "T:")
  192.  (newname "xmu2.old")
  193. )
  194.  
  195. (working)
  196. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xmu2.library -pT:xmu2.pch T:xmu2.old"))
  197.  
  198. (copyfiles
  199.  (source "T:xmu2.library")
  200.  (dest (tackon @default-dest "libs"))
  201. )
  202.  
  203. (delete "T:xmu2.library")
  204. (delete "T:xmu2.old")
  205. (delete "T:xmu2.pch")
  206.  
  207.  
  208.  
  209. (complete 38)
  210.  
  211. (copyfiles
  212.  (source (tackon source-dir "x11/libs/xfont.pch"))
  213.  (dest "T:")
  214. )
  215.  
  216. (copyfiles
  217.  (source (tackon @default-dest "libs/xfont.library"))
  218.  (dest "T:")
  219.  (newname "xfont.old")
  220. )
  221.  
  222. (working)
  223. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xfont.library -pT:xfont.pch T:xfont.old"))
  224.  
  225. (copyfiles
  226.  (source "T:xfont.library")
  227.  (dest (tackon @default-dest "libs"))
  228. )
  229.  
  230. (delete "T:xfont.library")
  231. (delete "T:xfont.old")
  232. (delete "T:xfont.pch")
  233.  
  234.  
  235.  
  236. (complete 44)
  237.  
  238. (copyfiles
  239.  (source (tackon source-dir "x11/bin/AmiWin.pch"))
  240.  (dest "T:")
  241. )
  242.  
  243. (copyfiles
  244.  (source (tackon @default-dest "bin/AmiWin"))
  245.  (dest "T:")
  246.  (newname "AmiWin.old")
  247. )
  248.  
  249. (working)
  250. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin -pT:AmiWin.pch T:AmiWin.old"))
  251.  
  252. (copyfiles
  253.  (source "T:AmiWin")
  254.  (dest (tackon @default-dest "bin"))
  255. )
  256.  
  257. (delete "T:AmiWin")
  258. (delete "T:AmiWin.old")
  259. (delete "T:AmiWin.pch")
  260.  
  261.  
  262.  
  263. (complete 49)
  264.  
  265. (copyfiles
  266.  (source (tackon source-dir "x11/bin/twm.pch"))
  267.  (dest "T:")
  268. )
  269.  
  270. (copyfiles
  271.  (source (tackon @default-dest "bin/twm"))
  272.  (dest "T:")
  273.  (newname "twm.old")
  274. )
  275.  
  276. (working)
  277. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:twm -pT:twm.pch T:twm.old"))
  278.  
  279. (copyfiles
  280.  (source "T:twm")
  281.  (dest (tackon @default-dest "bin"))
  282. )
  283.  
  284. (delete "T:twm")
  285. (delete "T:twm.old")
  286. (delete "T:twm.pch")
  287.  
  288.  
  289.  
  290. (complete 55)
  291.  
  292. (copyfiles
  293.  (source (tackon source-dir "x11/bin/xset.pch"))
  294.  (dest "T:")
  295. )
  296.  
  297. (copyfiles
  298.  (source (tackon @default-dest "bin/xset"))
  299.  (dest "T:")
  300.  (newname "xset.old")
  301. )
  302.  
  303. (working)
  304. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xset -pT:xset.pch T:xset.old"))
  305.  
  306. (copyfiles
  307.  (source "T:xset")
  308.  (dest (tackon @default-dest "bin"))
  309. )
  310.  
  311. (delete "T:xset")
  312. (delete "T:xset.old")
  313. (delete "T:xset.pch")
  314.  
  315.  
  316.  
  317. (complete 60)
  318.  
  319. (copyfiles
  320.  (source (tackon source-dir "x11/bin/xsetroot.pch"))
  321.  (dest "T:")
  322. )
  323.  
  324. (copyfiles
  325.  (source (tackon @default-dest "bin/xsetroot"))
  326.  (dest "T:")
  327.  (newname "xsetroot.old")
  328. )
  329.  
  330. (working)
  331. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xsetroot -pT:xsetroot.pch T:xsetroot.old"))
  332.  
  333. (copyfiles
  334.  (source "T:xsetroot")
  335.  (dest (tackon @default-dest "bin"))
  336. )
  337.  
  338. (delete "T:xsetroot")
  339. (delete "T:xsetroot.old")
  340. (delete "T:xsetroot.pch")
  341.  
  342.  
  343.  
  344. (complete 66)
  345.  
  346. (copyfiles
  347.  (source (tackon source-dir "x11/bin/xdpyinfo.pch"))
  348.  (dest "T:")
  349. )
  350.  
  351. (copyfiles
  352.  (source (tackon @default-dest "bin/xdpyinfo"))
  353.  (dest "T:")
  354.  (newname "xdpyinfo.old")
  355. )
  356.  
  357. (working)
  358. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xdpyinfo -pT:xdpyinfo.pch T:xdpyinfo.old"))
  359.  
  360. (copyfiles
  361.  (source "T:xdpyinfo")
  362.  (dest (tackon @default-dest "bin"))
  363. )
  364.  
  365. (delete "T:xdpyinfo")
  366. (delete "T:xdpyinfo.old")
  367. (delete "T:xdpyinfo.pch")
  368.  
  369.  
  370.  
  371. (complete 71)
  372.  
  373. (copyfiles
  374.  (source (tackon source-dir "x11/bin/xhost.pch"))
  375.  (dest "T:")
  376. )
  377.  
  378. (copyfiles
  379.  (source (tackon @default-dest "bin/xhost"))
  380.  (dest "T:")
  381.  (newname "xhost.old")
  382. )
  383.  
  384. (working)
  385. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xhost -pT:xhost.pch T:xhost.old"))
  386.  
  387. (copyfiles
  388.  (source "T:xhost")
  389.  (dest (tackon @default-dest "bin"))
  390. )
  391.  
  392. (delete "T:xhost")
  393. (delete "T:xhost.old")
  394. (delete "T:xhost.pch")
  395.  
  396.  
  397.  
  398. (complete 77)
  399.  
  400. (copyfiles
  401.  (source (tackon source-dir "x11/bin/xkill.pch"))
  402.  (dest "T:")
  403. )
  404.  
  405. (copyfiles
  406.  (source (tackon @default-dest "bin/xkill"))
  407.  (dest "T:")
  408.  (newname "xkill.old")
  409. )
  410.  
  411. (working)
  412. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xkill -pT:xkill.pch T:xkill.old"))
  413.  
  414. (copyfiles
  415.  (source "T:xkill")
  416.  (dest (tackon @default-dest "bin"))
  417. )
  418.  
  419. (delete "T:xkill")
  420. (delete "T:xkill.old")
  421. (delete "T:xkill.pch")
  422.  
  423.  
  424.  
  425. (complete 82)
  426.  
  427. (copyfiles
  428.  (source (tackon source-dir "x11/bin/xwininfo.pch"))
  429.  (dest "T:")
  430. )
  431.  
  432. (copyfiles
  433.  (source (tackon @default-dest "bin/xwininfo"))
  434.  (dest "T:")
  435.  (newname "xwininfo.old")
  436. )
  437.  
  438. (working)
  439. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xwininfo -pT:xwininfo.pch T:xwininfo.old"))
  440.  
  441. (copyfiles
  442.  (source "T:xwininfo")
  443.  (dest (tackon @default-dest "bin"))
  444. )
  445.  
  446. (delete "T:xwininfo")
  447. (delete "T:xwininfo.old")
  448. (delete "T:xwininfo.pch")
  449.  
  450.  
  451.  
  452. (complete 88)
  453.  
  454. (copyfiles
  455.  (source (tackon source-dir "x11/bin/xlsclients.pch"))
  456.  (dest "T:")
  457. )
  458.  
  459. (copyfiles
  460.  (source (tackon @default-dest "bin/xlsclients"))
  461.  (dest "T:")
  462.  (newname "xlsclients.old")
  463. )
  464.  
  465. (working)
  466. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:xlsclients -pT:xlsclients.pch T:xlsclients.old"))
  467.  
  468. (copyfiles
  469.  (source "T:xlsclients")
  470.  (dest (tackon @default-dest "bin"))
  471. )
  472.  
  473. (delete "T:xlsclients")
  474. (delete "T:xlsclients.old")
  475. (delete "T:xlsclients.pch")
  476.  
  477.  
  478.  
  479. (complete 94)
  480.  
  481. (copyfiles
  482.  (source (tackon source-dir "AmiWin_guide.pch"))
  483.  (dest "T:")
  484. )
  485.  
  486. (copyfiles
  487.  (source (tackon @default-dest "help/AmiWin.guide"))
  488.  (dest "T:")
  489.  (newname "AmiWin_guide.old")
  490. )
  491.  
  492. (working)
  493. (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:AmiWin.guide -pT:AmiWin_guide.pch T:AmiWin_guide.old"))
  494.  
  495. (copyfiles
  496.  (source "T:AmiWin.guide")
  497.  (dest (tackon @default-dest "help"))
  498. )
  499.  
  500. (delete "T:AmiWin.guide")
  501. (delete "T:AmiWin_guide.old")
  502. (delete "T:AmiWin_guide.pch")
  503.  
  504. (complete 100)
  505.  
  506. (exit "Installation of the update from AmiWin 2.11demo to "
  507.  "AmiWin 2.14demo is finished.")
  508.